

%plot flow frequency data
axes(handles.axes16)
plot(0:length(F_Harmonics(:,2))-1,F_Harmonics(:,2), '-o')
xlabel('Harmonic')
ylabel('Modulus (cm/sec)')
title('Flow Moduli')

%plot flow waveform data
axes(handles.axes17)
plot(t,ydata,'-b','LineWidth',2)
hold on
plot(z1,y,'-*r','LineWidth',2)
xlabel('Time');ylabel('Velocity Magnitude (cm/sec)')
hold on
inv_Y=ifftn(Yfft);
ninv=L-1;Tp=Tp -delta_t;
plot(0:Tp/ninv:(ninv-1)*Tp/ninv,inv_Y(1:floor(L-1)),'*k')
title('Input Velocity Wave: Fourier Expansion')
hold off